home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 10 Education Games / ASTROREA.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  237 lines
  1. 5 POKE 53280,0:POKE53281,0
  2. 8 GOSUB 8000
  3. 10 PRINT"[147]":POKE53281,0:POKE53280,0
  4. 15 ER$="  ENTER YOUR CHOICE:   M[146]AIN OR L[146]OAD"
  5. 20 PRINT"             ASTRONOMY MENU[154]"
  6. 30 PRINT"         ***   DIRECTORY   ***"
  7. 40 PRINT" A. FOTOTRACK       B. MAGNIFICATION
  8. 50 [153]" C. EYEPIECE        D. PLANETFINDER
  9. 60 PRINT" E. SOLARPIX        F. STAR GAZING
  10. 70 [153]" G. ASTRO CALC 1    H. GRAND TOUR
  11. 80 PRINT" I. CONSTELLATIONS  J. RA/DEC
  12. 90 [153]" K. MESSIER CATALOG L. NIGHT SKY
  13. 100 PRINT" M. STARTIME        N. ASTRONOMY
  14. 200 [153]"   ENTER NUMBER OF PROGRAM TO VIEWCONT";N$
  15. 210 [161]N$:[139]N$[178]""[137]210
  16. 230 [139]N$[178]"A"[137]1100
  17. 235 [139]N$[178]"B"[137]1200
  18. 240 [139]N$[178]"C"[137]1300
  19. 245 [139]N$[178]"D"[137]1400
  20. 250 [139]N$[178]"E"[137]2500
  21. 255 [139]N$[178]"F"[137]1500
  22. 260 [139]N$[178]"G"[137]1700
  23. 265 [139]N$[178]"H"[137]1900
  24. 270 [139]N$[178]"I"[137]2000
  25. 275 [139]N$[178]"J"[137]2100
  26. 280 [139]N$[178]"K"[137]2200
  27. 285 [139]N$[178]"L"[137]2300
  28. 290 [139]N$[178]"M"[137]2400
  29. 300 [139] N$[178]"N"[137]1600
  30. 320 [139]N$[178]"15" [176] N$ [177]"15"[137] 2600
  31. 1100 [143] ****** 1 FOTOTRACK  ******
  32. 1103 [153]"LOAD               FOTOTRACKCONT"
  33. 1105 [153]" THIS PROGRAM WILL GIVE YOU THE
  34. 1110 PRINT" EXPOSURE TIME YOU WILL NEED FOR
  35. 1112 [153]" ASTROPHOTOGRAPHY.
  36. 1115 PRINT" IT ASKES FOR SOME INFORMATION, THEN
  37. 1120 [153]" CALCULATES THE TIME OF EXPOSURE
  38. 1195 PRINTER$
  39. 1196 GOSUB 5000
  40. 1197 IF C$="M"THEN RUN 10
  41. 1198 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"FOTOTRACK"CHR$(34)",8
  42. 1199 [137] 6000
  43. 1200 [143] ****** 2 MAGNIFICATION *****
  44. 1205 [153]"LOAD            MAGNIFICATIONCONT"
  45. 1210 [153]"  COMPUTES THE MAGNIFICATION OF ANY
  46. 1220 PRINT"TELESCOPE ALONG WITH 3 DIFFERENT
  47. 1230 [153]"EYEPIECES, WITH AND WITHOUT BARLOWS"
  48. 1295 [153]ER$
  49. 1296 [141]5000
  50. 1297 [139]C$[178]"M"[167] [138]10
  51. 1298 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"MAGNIFICATION"[199](34)",8
  52. 1299 GOTO6000
  53. 1300 REM ***** 3 EYEPIECE *****
  54. 1305 PRINT"[147]               EYEPIECE[154]"
  55. 1320 PRINT"  ASKS FOR INPUT OF SCOPE OBJECTIVE
  56. 1325 [153]"DIAMETER AND FOCAL LENGTH.  PROGRAM
  57. 1330 PRINT"WILL GIVE THE MAXIMUM MAGNIFICATION
  58. 1335 [153]"THAT IS POSSIBLE WITH YOUR SCOPE,
  59. 1340 PRINT"AND ALSO THE DAWE'S LIMIT IN
  60. 1342 [153]"SECONDS OF ARC. IT WILL ALSO GIVE
  61. 1345 PRINT"YOU THE MAGNIFICATION LIMITING
  62. 1350 [153]"MAGNITUDE.  IF THEY EXCEDE THE
  63. 1355 PRINT"SCOPES LIMIT, THEY WILL BE SHOWN
  64. 1360 [153]"IN REVERSE GRAPHICS"
  65. 1365 [153]" A HARDCOPY IS ALSO PROVIDED BY HITTING"
  66. 1366 [153]"                   F7WAIT"
  67. 1395 [153]ER$
  68. 1396 [141]5000
  69. 1397 [139] C$[178]"M"[167] [138]10
  70. 1398 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"EYEPIECE"[199](34)",8
  71. 1399 GOTO6000
  72. 1400 REM ******  4 PLANETFINDER *****
  73. 1405 PRINT"[147]            PLANETFINDER[154]"
  74. 1420 PRINT" PLACES A PLANET, SUN, OR THE MOON
  75. 1425 [153]"AMONG THE ZODICIAL CONSTELLATIONS
  76. 1430 PRINT"FOR ANY INPUT DATE. IT ALSO GIVES
  77. 1435 [153]"THE RIGHT ASCENTION AND DECLENATION
  78. 1495 PRINTER$
  79. 1496 GOSUB5000
  80. 1497 IF C$="M"THEN RUN10
  81. 1498 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"PLANETFINDER"CHR$(34)",8
  82. 1499 [137]6000
  83. 1500 [143] *****  5 STAR GAZING ****
  84. 1505 [153]"LOAD             STAR GAZINGCONT"
  85. 1520 [153]"  PROGRAM CALCULATES WHICH STARS ARE
  86. 1525 PRINT" VISIBLE AT A SPECIFIED TIME & DATE.
  87. 1530 [153]" IT ALSO WILL CALCULATE THE MAGNITUDE,
  88. 1535 PRINT" RIGHT ASCENTION, DECLINATION, BEARING,
  89. 1540 [153]" AND ALTITUDE.
  90. 1545 PRINT"   THIS IS A <PRINTER ONLY> PROGRAM!"
  91. 1595 PRINTER$
  92. 1596 GOSUB5000
  93. 1597 IF C$="M"THEN RUN10
  94. 1598 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"STAR GAZING"CHR$(34)",8
  95. 1599 [137]6000
  96. 1600 [143]      **** ASTRONOMY ****
  97. 1605 [153]"LOAD               ASTRONOMYCONT
  98. 1610 PRINT" THIS PROGRAM WILL GIVE YOU SOLAR"
  99. 1620 PRINT"LUNAR, AND PLANETARY COORDINATS, BASED
  100. 1630 [153]"ON YOUR INPUTS.
  101. 1640 PRINT"ON LINES 2040-2140 YOU CAN MODIFY
  102. 1643 [153]"THIS PROGRAM IF YOUR AREA IS NOT LISTED
  103. 1645 PRINT"YOU WILL NEED TO KNOW THE LONGITUDE
  104. 1650 [153]"AND LATITUDE OF YOUR AREA.
  105. 1655 PRINT"IT WILL BE EASIEST TO REPLACE
  106. 1660 [153]"'PITTSBURGH' WITH YOUR AREA, THEN
  107. 1665 PRINT"JUST BY HITTING RETURN, IT WILL
  108. 1670 [153]"DEFAULT TO YOUR AREA.
  109. 1675 PRINT"WHEN ALL INFO IS DISPLAYED ON YOUR
  110. 1680 [153]"SCREEN, HIT 'P' FOR A HARDCOPY.
  111. 1695 PRINTER$
  112. 1696 GOSUB5000
  113. 1697 IFC$="M"THEN RUN10
  114. 1698 IF C$="L" THEN PRINT"[147]LOAD"CHR$(34)"ASTRONOMY"CHR$(34)",8
  115. 1699 [137]6000
  116. 1700 [143]   ***** 7 ASTRO CALC 1 ******
  117. 1705 [153]"LOAD               ASTRO CALC 1CONT"
  118. 1720 [153]" PROGRAM WILL LOCATE AND IDENTIFY
  119. 1725 PRINT" THE MOONS OF JUPITER. PROGRAM WILL
  120. 1730 [153]" ALSO CALCULATE LOCAL TIME FROM"
  121. 1735 [153]" UNIVERSAL TIME"
  122. 1795 [153]ER$
  123. 1796 [161]C$:[139]C$[178]""[137]1796
  124. 1797 [139] C$[178]"M"[167] [138]10
  125. 1798 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"ASTRO CALC 1.00"[199](34)",8
  126. 1799 GOTO6000
  127. 1900 REM  ***** 9 GRAND TOUR *****
  128. 1905 PRINT"[147]              GRAND TOUR[154]"
  129. 1920 PRINT" A PROGRAM TO SHOW WHAT IT WOULD
  130. 1925 [153]" BE LIKE IF YOU COULD EXPLORE ANOTHER "
  131. 1927 [153]" WORLD OTHER THAN OUR EARTH. IT
  132. 1930 PRINT" WILL SHOW WHAT YOU WOULD WEIGH,
  133. 1935 [153]" ALONG WITH OTHER STATS.
  134. 1940 PRINT" PROGRAM ALSO HAS INFORMATION ABOUT
  135. 1945 [153]" ALL THE PLANETS.
  136. 1995 PRINTER$
  137. 1996 GOSUB5000
  138. 1997 IF C$="M"THEN RUN10
  139. 1998 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"GRAND TOUR"CHR$(34)",8
  140. 1999 [137]6000
  141. 2000 [143]   **** 10 CONSTELLATIONS ***
  142. 2010 [153]"LOAD            CONSTELLATIONSCONT"
  143. 2020 [153]" WILL DRAW A SPECIFIED CONSTELLATION
  144. 2025 PRINT" FROM A LIST OF 42. THERE IS ALSO
  145. 2030 [153]" A QUIZ OPTION: YOU MUST NAME THE
  146. 2035 PRINT" CONSTELLATION, AND THEN NAME A
  147. 2040 [153]" BRIGHT STAR WITHIN IT.
  148. 2095 PRINTER$
  149. 2096 GETC$:IFC$=""GOTO 2096
  150. 2097 IF C$="M"THEN RUN10
  151. 2098 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"CONSTELLATIONS"CHR$(34)",8
  152. 2099 [137]6000
  153. 2100 [143]       ***** RA/DEC  *****
  154. 2110 [153]"LOAD               ORRERYCONT"
  155. 2120 [153]" WITH YOUR INPUTS OF INFORMATION,"
  156. 2125 [153]" THIS PROGRAM WILL GIVE THE RIGHT
  157. 2130 PRINT" ASCENTION AND THE DECLINATION
  158. 2140 [153]" OF THE PLANETS OF OUR SOLAR SYSTEM.
  159. 2195 PRINTER$
  160. 2196 GOSUB5000
  161. 2197 IF C$="M"THEN RUN10
  162. 2198 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"RA/DEC"CHR$(34)",8
  163. 2199 [137]6000
  164. 2200 [143]  ****** 12 MESSIER CATALOG ***
  165. 2210 [153]"LOAD           MESSIER CATALOGCONT"
  166. 2220 [153]" THE MESSIER CATALOG OF NEBULA AND
  167. 2225 PRINT" STAR CLUSTERS. YOU ENTER YOUR CHOICE
  168. 2230 [153]" FROM #1 TO #104. IT GIVES THE NAME,
  169. 2235 PRINT" CONSTELLATION IT'S LOCATED IN, AND
  170. 2240 [153]" THE TYPE. IT ALSO GIVES THE RIGHT
  171. 2245 PRINT" ASCENTION AND DECLENATION TO USE
  172. 2246 [153]" THE SETTING CIRCLES ON A TELESCOPE
  173. 2295 PRINTER$
  174. 2296 GOSUB5000
  175. 2297 IFC$="M"THENRUN10
  176. 2298 IFC$="L"THEN PRINT"[147]LOAD"CHR$(34)"MESSIER CATALOG"CHR$(34)",8
  177. 2299 [137]6000
  178. 2300 [143]   ******  13 NIGHTSKY ******
  179. 2305 [153]"LOAD              NIGHTSKYCONT"
  180. 2320 [153]" CHARTS OF THE STARS AND PLANETS.
  181. 2325 PRINT" ENTER THE TIME AND DATE AND A CHART
  182. 2330 [153]" PLOTS WHAT WOULD BE VISIBLE IN THE
  183. 2335 PRINT" N,S,E, OR W OF YOUR LOCATION
  184. 2395 [153]ER$
  185. 2396 [141]5000
  186. 2397 [139] C$[178]"M"[167] [138]10
  187. 2398 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"NIGHTSKY"[199](34)",8
  188. 2399 GOTO6000
  189. 2400 REM    *****  14 STARTIME  ******
  190. 2405 PRINT"[147]              STARTIME[154]"
  191. 2420 PRINT" A SIDEREAL TIME CALCULATIONS
  192. 2425 [153]" PROGRAM. SCREEN DISPLAYS A WORKING
  193. 2430 PRINT" CLOCK.
  194. 2495 [153]ER$
  195. 2496 [141]5000
  196. 2497 [139] C$[178]"M"[167] [138]10
  197. 2498 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"STARTIME"[199](34)",8
  198. 2499 GOTO6000
  199. 2500 REM  ******** 15 SOLARPIX *******
  200. 2505 PRINT"[147]              SOLARPIX [154]"
  201. 2520 PRINT" A GRAPHICS DISPLAY OF OUR SOLAR
  202. 2525 [153]" SYSTEM. PLANETS ROTATE AROUND OUR
  203. 2530 PRINT" SUN, ACCORDING TO THE INPUT DATE.
  204. 2535 [153]" COMET ECCENTRICITY AND PLANET FACTS
  205. 2540 PRINT" ARE ALSO INCLUDED
  206. 2595 [153]ER$
  207. 2596 [141]5000
  208. 2597 [139] C$[178]"M"[167] [138]10
  209. 2598 [139]C$[178]"L"[167] [153]"LOADLOAD"[199](34)"SOLARPIX"[199](34)",8
  210. 2599 GOTO6000
  211. 2600 REM    ******** TO HIGH  ********
  212. 2605 PRINT"[147]            THE LETTER OF YOUR"
  213. 2607 PRINT"           CHOICE IS NOT LISTED
  214. 2610 [153]"             PLEASE TRY AGAINCONT"
  215. 2620 [129]X[178]1[164]1500:[130]X
  216. 2625 [138]10
  217. 5000 [161]C$:[139]C$[178]""[167]5000
  218. 5002 [142]
  219. 6000 [153]"RUN"
  220. 6005 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[128]
  221. 8000 [153]"LOAD"
  222. 8002 [153]" .    :   .  .  .      .     .     .   .        .         *       *
  223. 8003 PRINT"  .    .        .       .    *     .      *         .     .
  224. 8005 [153]"CONTASTRONOMY PROGRAMS DOWNLOADED FROM THE
  225. 8010 PRINT"     ASTRONOMY LIBRARYS OF Q-LINK
  226. 8014 [153]" *   .    .      .      . * .     .   .    .    .
  227. 8015 PRINT" .    .     .        .     . *    .  * . *     .
  228. 8016 [153]"  . * .        *      * ..     .
  229. 8017 PRINT"  :    ..          .       .*      .      * ..      *
  230. 8020 [153]"CONT      MENU PROGRAM BY BILL LEY (WRL)
  231. 8025 PRINT"  .   .  * *   :    .      .  *    .     .     .. .    .  .
  232. 8027 [153]" *     *    , :         :.        .    .    .
  233. 8030 FOR X=1TO3500:NEXTX
  234. 8035 PRINT"    .          . .    .*     .     .   .      .
  235. 8038 [153]"LOAD"
  236. 8040 [142]
  237.